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Main Movie Scripts 

Sprite Assignments 



o 

.vo 

.ON 
DO ; 

CM ^^.5 

o § 



- sprite 3 reserved for the ViewSymbols buttons 

- sprite 4 reserved for the ViewGuesses buttons 

- sprite 5 reserved for the NewTemplate buttons 

- sprites 45 thru 48 buttons for scrolling symbol palette 

- Sprites below are assigned to cast members dynamically 

- sprites 15 thru- 20 reserved for symbols in symbol palette 

- sprites 21 thru 35 reserved for symbols in Rebus message 
• sprites 39 thru 44 reserved for typein text guesses 



on startMovie 

— Public Globals 

global rmG_registeredUsers 

global rmG_userName 

global rmG_mode 
#author 

global rmG__mailData 
header 

global rmG_messageNumber 
global rmG_testState 
tests 

global rmG_userGroup 

— private internal globals 
global rmG_traceFlag 



— list of KidCode system usernames 
records username 

— #display, #display_noReply, or 

the active message including 
0,1,2,3 template set for user 



- for debugging 



global rmG_symbolcastName name of cast library of symbols to use 
" 1rtk ^ ™^ " n " J list of template names for this user 



global rmG_templates 
group 

global rmG_theTemplateIndex 
global rmG_symbolGroup 
template 



index of the current template 

lists symbol cast members for current 



global rmG_msgBody 
global rmG_state 
global rmG_guesses 
guesses 

set rmG_traceFlag = 



the active messageBody 
~ #decln, #codIn, #new, or #gotIt 
~ list of property lists with info on 



— set to 1 to turn on tracing, else 0 



set the fileName of castLib "Templates" to the pathName & 
"Templates. est" 

set the fileName of castLib "Symbols" to the pathName & "Symbols .est ' 

~ NEXT EXISTS SO THAT REBUS MOVIE CAN BE RUN IN SIMULATION MODE 

— IT IS SET TO TRUE BY THE INITWINDOW FUNCTION WHEN RUN AS 

— EMAIL COMPONENT! ! ! ! 
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54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 



global rmG_noSimulate 

— set rmG_noSimulate = TRUE 

if rmG_noSimulate then all globals initialized in initwindow 
tell the stage to emh_continue (#msgHandler ) 

else -- SIMULATE MODE 
initSimulation 

end if -- SIMULATE MODE 

end 

-- When email main opens the Rebus movie this function is called. 
— The openwindow function cannot accept an argument. 
-- Therefore initwindow below is necessary to pass the initial 
~ arguments to Rebus. 

on openwindow 

put " EXIT Openwindow" & - in frame" & the frame 
end openwindow 



on initSimulation 

-- Public Globals 

global rmG_registeredUsers 

global rmG_userName 

global rmG_mode 
#author 

global rmG_mailData 
header 

global rmG_messageNumber 
global rmG_testState 
tests 



list of KidCode system usernames 
-- records username 

#display, #display_noReply, or 

-- the active message including 



— 0,1,2,3 template set for user 

— which castlib to use 

- lists cast members in currently selected 

- property list with entry for each 
index of the current template 



internal globals 

global rmG_symbolcastName 
global rmG_symbolGroup 
group 

global rmG_templates 
template 

global rmG_theTemplate Index 
global rmG_msgBody 
global rmG_state 
global rmG_guesses 

— Initialize variables that would have been passed by email main 
set rmG_userName = "userl" 

set rmG_registeredUsers = ["user2", "userl"] 
set rmG_mode = #author 

set rmG_mailData = [#to : "Userl" , #from:" ", #re: "Rebus Challenge",-- 

#mimeType: "Rebus", #status: "new"] 
addProp{rmG_mailData, #date, the abbreviated date) 



f > 



Appendix D: KidCode® Lingo Client /Server Rebus Message 
Handling Component Scripts 

Page 3 

107 addProp(rmG_mailData, #msgBody, [#new, [], "default"]) 

108 set rmG_messageNumber= 1 

109 set rmG_testState =2 -- user group; determines castLib and 

110 templates 
1 1 1 

112 — Initialize private globals 

113 set rmG_msgBody = getProp (rmG_mailData, #msgBody) -- set up pointer 

114 set rmG_state = getAt (rmG_msgBody, 1) 
115 

116 initializeTemplates initializes rmG_templates 

118 set rmG_theTemplateIndex = getPos (rmG_templates , "default") 

119 set theTemplate = "default" 

120 set rmG_symbolcastName = get Template Prop (theTemplate, #library) 
W2 rmG - symbolGroup = getTemplateProp( theTemplate, #symbols) 

123 set rmG_guesses = [] -- guesses initialized after template is 

124 selected 
125 

126 — - Format the font properties of text fields and the MessageSpace 

1 2 7 setUpMessageSpace ( ) 

1 28 f ormatFields ( ) 
129 

130 allow To field to be a listbox 

131 puppetSprite 50, TRUE 
132 

133 

134 fillToList () 
135 

136 data structures to improve efficiency in text and graphics layout 

137 global rmG_layout Index 
138 

139 index 
140 

141 end initSimulation 
142 



143 



set rmG_layoutIndex = [:] --records word position and loc info by 



144 closeWindow is not called unless Rebus plays as a MIAW. 

145 

146 on closeWindow 

147 finishMovie 

148 end closeWindow 
149 

150 . 

151 — stopMovie is not called if Rebus plays as a MIAW 
152 

153 on stopMovie 

154 finishMovie 

155 end 
156 
157 



ifn " This needs to P la y whenever the movie closes, 
159 whether as MIAW or standalone. 
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160 

161 on finishMovie 

162 global rmG_noSimulate 
163 

1 64 clearHdrFields 

165 clearMessageSpace 

166 set the member of sprite 3 = member "SymbolButtonUp" 

167 set the member of sprite 4 = member "GuessesButtonUp" 

168 if soundBusy(l) then sound stop 1 
169 

170 next line will cause problems for the main movie 

171 — for now just reset this by hand if you have been running in 

172 — email mode and want to switch to simulate mode. 

173 Note, unless Director is restarted, the rmG_noSimulate global 

174 stays set even when a new Rebus movie is loaded. 

175 — set rmG_noSimulate = FALSE 
176 

177 end 
178 
179 

180 Template handlers 

181 All information needed for each Template is stored 

182 in the "Templates" castLib. 

lo^ EaCh tem P late is stored as a list with the following 

184 elements : 

185 template text string 

186 list of indices of coded words 

iftft fc ^ Xt string name of ca stlib for template's symbols 

]an list ° f member numbers in castlib for template's symbols 

18 9 

190 
191 

192 

193 initializeTemplates 

194 set up the rmG_templates list of Rebus template names for the 

195 user group determined by rmG_testState 

1 96 

197 on initializeTemplates 

198 global rmG_testState --- user testing group 

199 global rmG_templates list of template names for this usergroup 
^00 global rmG userGroup 

201 " 

ohq Set rmG - tem P lates = ["default"] — reset for safety 

204 if rmG_testState = 0 then administrator 

205 repeat with str in ["girlrain", "clownsaid", "withoutsun" ] 

206 add(rmG_templates, str) 

207 end repeat 
208 

209 else user group 

210 

211 — Sentences common to all groups 



e.g. [ "Can a truck fly?", [3,4], "UTsymbols" , [4, 23 , 24, 25] ] 
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212 if 0 then --- sentences have been split up among pairs (1,2) and 

*Z I 3 (3, 4) 

repeat with str in [ "attrib2 " , n attrib3" , n attrib5", 

215 "quantl", "quantS", "quant 6", -i 

216 " verbl ■ , " verb3 " , " verb4 " ] 

217 add(rmG_templates, str) 

218 end repeat 

219 end if 
220 

221 Add specialized sentences 

222 

22 3 case rmG_testState of 

224 1: — attrib: 2,3 quant: 3a, 4a, 6 verb: 1,3,5a 

22 5 repeat with str in ["verb5a", "attrib2", "quant6», "attrib3 ■ , 

J" "verbl", "verb3", 

22 7 "quant 4a", -» 

22 8 "quant3a"] 

22 9 add(rmG_templates, str) 

230 end repeat 

231 

232 2: --attrib: 4b, 5 quant: 1,2,3b, 5 verb: 2b, 4, 5b 

2 33 repeat with str in ["attrib4b", "quant3b", "verb4", -. 

23J "quant2", "verb2b", "attribS" , -< 

"quantl", "quant5", "verbSb"] 
" b add(rmG_templates, str) 

2 37 end repeat 

238 

239 3: --attrib: 2,3 quant: 3a, 4b, 6 verb: 1,3,5c 

240 repeat with str in ["verbSc", "attrib2", "quant6", "attrib3",- 
J J I " verbl " , " verb3 " , 

242 "quant 4b", -» 

243 "quant3a"] 
2 44 add(rmG_templates, str) 

245 end repeat 

246 

247 4: —attrib: 4b, 5 quant: 1,2, 3c, 5 verb: 2b,4,5b 

^48 repeat with str in [ "attrib4b" , "quant3c", "verb4", i 

24 9 "quant2", "verb2b", "attrib5",^ 

"quantl", "quant 5", "verb5b"] 
add(rmG_templates, str) 
252 end repeat 

253 

25 4 otherwise: 

2f5 alert "ERROR: initializeTemplates invalid user group." 

2 5 6 

257 end case 

258 
259 
260 

261 end initializeTemplates 
262 
263 
264 



end if -- administrator or usergroup 
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265 — Accessor functions for template info: 
266 

267 on getTempl ate Prop member Name, prop 
268 

269 set cNum = the number of member memberName of castLib "Templates" 
270 

271 if cNum < 1 then 

272 alert "ERROR: no member " & memberName & ■ in cast lib Templates" 

273 return(O) 

274 end if 
275 

276 case prop of 



277 #text: return (getAt (value (the text of field cNum) , 1)) 

278 #coded: return (getAt (value (the text of field cNum) , 2) 
2 79 #library: return (getAt (value (the text of field cNum) 

280 #symbols: return (getAt (value (the text of field cNum) , 

281 Otherwise! rphurn ( n ^ 



Returns a partial message body structure from a simple 

list of the form [ templates tring, list_of_code_word_indices ] 

Used to read from templates cast members into message bodies 



281 otherwise: return (0) 

282 end case 
283 

284 end getTemplateProp 
285 

286 

287 

288 
289 
290 
291 

292 on readTemplate allwords, indices 
293 

294 set template = [] 

295 set val = [:] 

2 96 set nwords = the number of words in allwords 

297 set str = " " 

2 98 set charPos = 1 

299 set j W i 

300 set i = 1 
301 

302 repeat while j <= nwords 

303 repeat while not getOne (indices , j) and j <= nwords 

304 set str = str & word j of allwords & ■ " 

305 set j = j+i 

306 end repeat 

3 07 if length (str) > 0 then add uncoded words 
308 addProp(val, #text, str) 

3 °9 addProp(val, #code, 0) 

310 addProp(val, #charPos, charPos) 

\\\ addProp(val, #wordIndex, i) — index of first word 

312 add (template, duplicate (val ) ) 

3 1 3 set val = [ : ] 

314 set charPos = charPos + length (str) 

315 set str = " " 

316 end if 

317 if j <= nwords then add the coded word 



2)) 
3)) 
4)) 



-- openMessage function is only called by other Rebus functions 
— It does not handle laying out text properly for messages that 
may have been in alternative mailboxes. See msh_openMessage . 
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318 addProp(val, #text, word j of allwords & " " ) 

319 addProp(val, #code, 1) 
32 0 addProp(val, #charPos, charPos) 

321 addProp(val, #wordIndex, j ) 

322 add (template, duplicate (val) ) 

323 set val = [:] 

324 set charPos = charPos + length (word j of allwords )+ 1 
32 5 set j = j + 1 
32 6 end if 
327 

328 set i = j 
329 

330 end repeat 
331 

332 return ( template ) 

333 end readtemplate 
334 

335 Message handlers 

336 

337 

338 
339 
340 
341 

342 on openMessage 

ol? global rmG_msgBody, rmG_mailData, rmG_mode, rmG_state, rmG_symbolGroup 

344 global rmG_lineHeightFix 

345 global rmG_noSimulate --- False to run simulation independent of 

346 email 

347 global rmG_testState 

348 global rmG_symbolcastName 

349 global rmG_userName 
350 

351 global rmG_traceFlag 
352 

353 put "In REBUS: openMessage" 
354 

35 5 if rmG_noSimulate then 

356 set rmG_msgBody = get Prop (rmG_mailData, #msgbody) 
357 

358 if count (rmG_msgBody) = 0 then start a new message 

O 3 9 

360 startMessage ( "default" ) 

361 Fill header fields 

362 put getProp(rmG_mailData, #to) into field "To" 

363 put getProp(rmG_mailData, #from) into field "From" 

36 4 put the abbreviated date into field "Date" 
365 put "Rebus Challenge" into field "Re" 

36 6 

36 7 else Handle existing message 

36 8 put "OPEN rmG_msgBody" & rmG_msgBody 
36 9 

370 set rmG_state = getAt <rmG_msgBody, 1) 



1 
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371 set whichTemplate = getAt (rmG_msgBody, 3 ) 
372 

37 3 clearMessageSpace 

374 putHdrFieldsO read. headers into field members 
375 

376 setup symbols in graphics palette to match template 

377 set rmG_symbolGroup = getTemplateProp (whichTemplate, #symbols) 

378 setupSymbolPalette rmG_symbolcastName 

379 initializeGuesses uses global var rmG msgBody 
380 

381 case rmG_state of 

382 #new : 

383 layoutText (getat (rmG_msgBody, 2 ) , 6) coded words red 

384 makeLayout Index (getAt (rmG_msgBody , 2 ) ) 

385 placeGraphics ( ) 
386 

38 7 #decln: 
388 

389 layoutText (getat (rmG_msgBody, 2) , 0) -- coded words white 

390 makeLayoutlndex (getAt (rmG_msgBody, 2) ) 
3 9 1 placeGraphics ( ) 

392 

393 #codln: 
394 

395 layoutText (getat (rmG_msgBody, 2) , 6) coded words red 

3 96 makeLayoutlndex (getAt (rmG_msgBody , 2 ) ) 

397 placeGraphics ( ) 
398 

399 #gotIt: 

400 hide scrolling symbol palette 

401 repeat with i = 15 to 20 

402 puppetsprite i, TRUE 

403 set the visible of sprite i = FALSE 

404 end repeat 

405 layoutText (getat (rmG_msgBody, 2) , 6) -- coded words white 

406 makeLayout Index ( getAt (rmG_msgBody, 2) ) 
40 7 placeGraphics ( ) 

408 go to "got It" 

40 9 end case 
410 

411, end if 

412 

413 

4 1 4 else — Simulate mode 
415 

416 setupSymbolPalette rmG_symbo least Name 

417 set rmG_state = getAt (rmG_msgBody, 1) 

418 if rmG_state = #new then user picked a template 

419 set rmG_msgBody = newMessageBody (whichTemplate) 

420 layoutText (getAt (rmG_msgBody, 2), 6) -- 6 is white 

421 makeLayoutlndex (getAt (rmG.msgBody, 2 ) ) 

4 2 2 initializeGuesses uses global var rmG_msgBody 
423 else don't want to change message body or index 



V 



3 
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Client/Server Rebus Message 



424 layoutText (getAt (rmG_msgBody, 2), 0) 0 is white 

425 makeLayout Index ( getAt ( rmG_msgBody , 2 ) ) 

42 6 placeGraphics ( ) 

42 7 if rmG_state = #gotIt then 

42 8 go to "gotlt" 

42 9 end if 

43 0 end if Simulate 
431 

432 end if 
433 

434 if rmG_jnode = #display then 

4 35 set the editable of member "To" = FALSE 

436 else if rmG_mode = #author then 

437 fillToListO 

438 end if 
439 

440 

441 end openMessage 

442 

443 

444 

44 ^ Start message gets called only when there is a new template 

446 if a previous msg existed it is abandoned. 

447 

448 on startMessage whichTemplate 

449 global rmG_msgBody, rmG_state, rmG_symbolGroup, rmG_symbolcastName 
450 

451 clearMessageSpace 

452 set rmG_msgBody = newMessageBody (whichTemplate) 

453 set rmG_state = getAt (rmG_msgBody, 1) 

454 layoutText (getat (rmG_msgBody / 2) , 6) coded words red 

455 makeLayout Index (getAt (rmG_msgBody, 2 ) ) 

456 set rmG_symbolGroup = getTemplateProp (whichTemplate, #symbols) 
45 7 setupSymbolPalette rmG_symbolcastName 

458 

459 initializeGuesses uses global var rmG msgBody 

460 ~ 

461 end startMessage 
462 

463 
464 

465 function for coder to reply with a gotlt message 

466 

467 on handleGotlt 

468 global rmG_state, rmG_msgBody, rmG.mailData, rmG mode 
469 

470 if rmG_mode = #di splay then 

471 alert "You must click on reply first!" 

4 72 return (0) 

473 end if 
474 

475 if rmG_state <> #decln then 

476 set rmG_state = #gotIt 



Appendix D: KidCode® Lingo Client /Server Rebus Message 
Handling Component Scripts 

Page 10 

477 de 1 e t e A t ( rmG_ms gBody , 1 ) 

478 AddAt (rmG_msgBody, 1, #gotIt) 

479 put "Rebus Success!" into field "Re". 

480 setProp(rmG_mailData, #re, "Rebus Success!") 

481 alert "click on send to send Success!" 
482 

483 else alert "Only the coder can tell you GOT IT!" 
484 

485 end handleGotlt 

486 

487 

488 

489 

490 — Make new messageBody data structure from a template by adding 

491 -- the symbol and the guess to coded words. 
492 

493 on newMessageBody whichTemplate 
494 

495 set mBody = readTemplate (getTemplateProp (whichTemplate, #text),-> 

getTemplateProp (whichTemplate, #coded) ) 

497 

498 repeat with i = 1 to count (mBody) 

499 set nextltem = ge t At (mBody, i) 

500 set nextText = get Prop (nextltem, #text) 

501 if getProp (nextltem, #code) then 

502 deleteAt mBody, i 

503 AddProp nextltem, #symbol, 0 
5 04 AddProp nextltem, #guess, " " 

505 addAt mBody, i, nextltem 

506 end if 

507 end repeat 
508 

509 — add the rebusState as first item of messageBody 

510 " and the template name as the last item of messageBody 

511 return list(#new, mBody, whichTemplate) 
512 

513 end newMessageBody 
514 

515 — 



516 update the character positions and 

517 read text strings into the message body 

518 for now assume guesses are updated elsewhere 

519 

520 on updateMsgBody 

52-1 global rmG_msgBody 

522 

52 3 set msg = getAt (rmG__ms gBody, 2 ) 

52 4 set nltems = count (msg) 
525 set i = 1 
526 

527 if 0 then 
528 

52 9 repeat with x in msg 
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530 set index = getProp(x, #wordIndex) 

5 31 set charPos = getLayout Prop (index, #f irstCharPos) 

532 — setProp (x, #charPos, charPos) 

533 set symbol = ge tLayout Prop { index, # symbol Sprite) 
5 34 if symbol then 

5 35 setProp(x, #symbol, the memberNum of sprite symbol) 

536 end if 

537 if i < nltems then 

538 set nextlndex = get Prop (getAt (msg, i+1), #wordIndex) 

539 set lastChar = getLayoutProp (getProp (getAt (msg, i+1), 
5 40 #wordIndex) 

541 #firstCharPos) -1 

542 else 

5 43 set lastChar = the length of field "Mess age Space" 

544 end if 

5 45 set ts = char charPos to lastChar of field "MessageSpace" 

5 46 setProp(x, #text, ts) 

547 set i = i+1 

5 48 end repeat 

549 end if 

55 0 end updateMsgBody 

551 

552 — 

553 -- CLEAR THE TO, FROM, RE,. DATE, MIMETYPE FIELDS 

554 

555 on clearHdrFields 

556 put " " into field "To" 

557 put " " into field "ToDown" 
55 8 put " " into field "From" 
55 9 put " " into field "Re" 

560 put " " into field "Date" 

561 end 
562 

563 

564 

565 — 

566 — updateHeader reads info from the message header 

567 fields back into the message 
568 

569 on updateHeader 

5 70 global rmG_mailData 
571 

572 setProp rmG_mailData, #to, the text of member "To" 

573 setProp rmG_jnailData, #from, the text of member "From" 

574 setProp rmG_mailData, #date, the text of member "Date" 

575 setProp rmG_mailData, #re, the text of member "Re" 

576 setProp rmG_mailData, #mimetype, "rebus" 
577 

578 end updateHeader 
579 

580 

581 

582 on putHdrFields 



I 



1 



Appendix D: KidCode® Lingo Client /Server Rebus Message 
Handling Component Scripts 

Page 12 

583 global rmG_mailData 
584 

585 put get Prop (rmG_mailData, #to) into field "To" 

586 put getProp(rmG_mailData, #from) into field "From" 

587 put getProp(rmG_mailData / #re) into field "Re" 

588 put getProp(rmG_mailData, #date) into field "Date" 
589 

5 90 end putHdrFields 
591 

592 Symbol sprites 

593 getFreeSymbolSprite returns the sprite number of a 
5 94 -- free sprite if it exists. Otherwise it returns 0. 

595 — Ifa sprite reserved for a symbol has an empty 

596 -- castmember then it is available for use. 

5 97 This way we avoid using a global list of free sprites. 
598 

599 on getFreeSymbolSprite 

600 

601 repeat with i = 21 to 35 — sprites 21-35 reserved for symbols 

602 if the memberNum of sprite i = 0 then return i 

603 end repeat 
604 

605 return (0) — none found 
606 

607 end getFreeSymbolSprite 

608 

609 

610 

«io Initializes a new symbol and returns the sprite number. 

612 if no symbol sprites are available it returns 0. 

613 The argument graphicMember is the member, not the 

614 memberNumber . 

615 

616 Maybe should make symbols unedi table when they are 

617 --- created (if #decln or #display) instead of in the 

618 placeGraphics handler, as is currently the case. 
619 

620 on newMessageSymbol graphicMember 

621 

622 set newSymbolNum = getFreeSymbolSprite ( ) 

623 if newSymbolNum = 0 then 

624 beep 

625 return (0) 

626 else 

62 7 puppetsprite newSymbolNum, TRUE 

eon Set baseloc = the loc of sprite newSymbolNum 

62 9 set the member of sprite newSymbolNum = graphicMember 

63 0 set the visible of sprite newSymbolNum = TRUE 

631 set the moveablesprite of sprite newSymbolNum = TRUE 

63 2 set wordlndex = 0 

633 return (newSymbolNum) 

634 end if 
635 



set firstY = -55 — sprite directly above palette 
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636 end newMes sage Symbol 
637 

638 -- Palette of graphic symbols 

639 

640 — Setup scrolling symbol palette 

641 — Sprites 15 thru 20 are reserved for symbols visible on the palette. 

642 — Symbol bitmaps are max of 100 pixels in either direction. 

643 — Set up one sprite directly above palette and one sprite 

644 — directly below the palette. 
645 

646 on setupSymbolPalette whichCast 

647 global rmG_symbolGroup cast members of selected symbol group 

648 global rmG_mode, rmG state 
649 
650 
651 

652 set nextMember = 1 

653 repeat with i = 15 to 20 

654 puppetsprite i, TRUE 

655 set the visible of sprite i to TRUE 

656 if rmG_state = #decln OR rmG_mode = #display then 

657 set the moveableSprite of sprite i = FALSE 

658 else 

659 set the moveableSprite of sprite i = TRUE 

660 end if 

661 set the ink of sprite i to 36 background transparent 

662 set firstSymbolY = firstSymbolY + 120 

663 set the member of sprite i = member getAt (rmG_symbolGroup, 

664 nextMember) of cast Lib whichCast 

665 set the memberlndex of sprite i = i-14 index in symbolgroup 

666 set the locH of sprite i to 582 

667 set the locV of sprite i to firstSymbolY 

668 set firstY = firstY + 120 
669 

670 sprite should have palette behaviors 

671 set the paletteLoc of sprite i = the loc of sprite i 
672 

673 set nextMember = {nextMember mod 6) + 1 

674 end repeat 
675 

676 updatestage 

677 end setupSymbolPalette 
678 

67 9 — 

680 

681 sprites 15 thru 20 are reserved for symbols 

682 on scrolling palette 

68 3 whichCast is a string that refers to the castName in the 

684 templates castLib. 

685 

686 on chooseCast whichCast 

687 global rmG_symbolGroup 

688 global rmG_symbolcastName 
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689 

690 set rmG_symbolGroup = getTemplateProp (whichCast , #symbols) 

691 set rmG_symbo least Name = getTemplateProp (whichCast , #library) 

692 setupSymbolPalette rmG_symbo least Name 
693 

694 

695 end chooseCast 
696 

697 Palette Symbol 

698 — Intellinet Inc. behavior 

69 9 -- Implements behaviors for a palette sprite. 

700 -- This includes the ability to create copies of itself 

701 — if placed in a message and the ability to scroll. 
702 

703 

70 4 property paletteloc, memberlndex 
705 

70 6 paletteLoc is the location of the sprite in the palette. 

70 7 « memberlndex is the Index of the sprites castMember in the list 

708 — of castMembers in the symbol palette. (rmG_symbol Group) 

70 9 

710 on mouseUp me 

711 global rmG_symbolcastName, rmG_state, rmG_mode 

713 set upLoc = point(the mouseH, the mouseV) -- the clickloc??? 

714 

715 if rmG_state <> #decln and rmG^mode <> #display then -- message can be 

716 edited 

71 7 — put "symbol " & the spriteNum of me & " uploc = ■ & uploc 
718 

719 set textCast = the number of member "MessageSpace" 

720 set textSprite = 2 --reserved for the message space 

721 set castNum = the memberNum of sprite the clickon 
722 

723 — it's an original from the symbol palette put it back 

72 4 set the loc of sprite the spriteNum of me to paletteLoc 
725 

726 if inside (upLoc, the rect of sprite textSprite) then 

728 set wordl = locToWordPos (member textCast, -> 

72 9 upLoc - the loc of sprite textSprite) 

73 0 if wordl > 0 then 

731 if codewordP (wordl) then 

732 if getLayoutProp (wordl, # symbol Sprite) then -- word already 
73 3 has a symbol 

734 just swap its cast member with the new one 

735 set the memberNum of sprite getLayout Prop (wordl , 

736 #symbolSprite) = -■ 

737 the memberNum of sprite the spriteNum of me 

738 updates tage 

739 else 

740 set newSpriteNum = newMes sage Symbol (member castNum of 

741 castLib-" 



I 
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W\ rmG_symbo least Name ) 

743 if newSpriteNum <> 0 then 

744 placeSymbolInText (sprite newSpriteNum, wordl) 

745 else can't do anything, no more sprites. 

746 end if 
747 

748 end if 

74 9 end if 

750 end if 

751 else nothing dragged somewhere outside of MessageSpace 

75 2 

753 updates tage 

754 

755 end if symbols editable? 

75 6 end mouseUp 
757 

75 8 Palette Symbol continued 

759 

760 to scrollUp 

761 cycle in the next CastMember in the currentSymbolGroup 

762 

763 on scrollUp me 

764 global rmG_symbolGroup, rmG_symbolcastName 
765 

766 if member Index = count (rmG_symbolGroup) then 

767 set member Index = 1 

768 else set member Index = memberlndex + 1 
769 

770 set the member of sprite the spriteNum of me = member -i 

771 getAt (rmG_symbolGroup, memberlndex) of castLib 

772 rmG_symbolcas tName 
773 

774 end scrollUp 

775 

776 

777 

778 to scrollDown 

77 9 cycle in the previous CastMember in the currentSymbolGroup 

781 on scrollDown me 

782 global rmG_symbolGroup, rmG_symbo leas tName 
783 

784 if memberlndex = 1 then 

785 set memberlndex = count (rmG_symbo 1 Group) 

786 else set memberlndex - memberlndex - 1 
787 

788 set the member of sprite the spriteNum of me = member -> 

78 9 getAt (rmG_symbolGroup, memberlndex) of castLib 
790 rmG_symbo leas tName 

791 

792 end scrollDown 

793 

794 



wordlndex is the index of the message word that this sprite 
is attached to. 

— wordlndex = 0 if sprite is not attached to a coded word. 

to mouseUp need to add method to allow symbols to be placed into 
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795 Message Symbol 

796 « Intellinet Inc. behavior 

797 Implements behaviors for a graphic sprite in message. 
7 98 -- When the message has a text component, the message symbol sprites 
799 — snap to coded words. 
800 

801 property baseLoc, wordlndex 
802 
803 

804 — is attached to 
805 
806 
807 
808 

809 empty 

810 messages (e.g. default template = clear) and moved around in the 

811 -- messages. Need also to add method to handle messages that consist of 

812 -- nothing but symbols. Probably check to see if template is default. 
813 

814 
815 
816 
817 
818 

819 on recycleMessageSymbol me 

820 

821 set wordlndex = 0 

822 set baseloc = point (-100, -100) -- offstage 
82 3 set the visible of sprite the spriteNum of me = 0 

824 set the memberNum of sprite the spriteNum of me = 0 

825 set the loc of sprite the spriteNum of me = baseloc 
826 

82 7 end recycleMessageSymbol 
828 
829 
830 

831 on mouse Up me 

83 2 global rmG_state, rmG_mode 
833 

836 if rmG_state = #decln OR rmG_mode = #display then disable symbol 

837 return(O) 

838 end if 
839 

840 symbol enabled 

841 

842 set textSprite =2 reserved for the message space 

843 

qac if n0t inside ( u P loc < the rect of sprite textsprite) then 

845 deleteSymbolInMsg(me) -- take it out of msg 

846 return(O) 

847 end if 



Reinitializes the properties of sprite and resets the 
-- memberNumber to 0, making the sprite available for reuse. 



834 set upLoc = point (the mouseH, the mouseV) -- the clickloc??? 

835 
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848 

849 since symbol can only be in the message 

85 0 symbol was clicked in the message; maybe moved 

851 

852 if wordlndex <> 0 then — moved from a coded word in message 

853 

854 set toWord = locToWordPos (member "MessageSpace" , -» 

855 upLoc - the loc of sprite textsprite) 
85 6 

85 7 if toWord = wordlndex then — they left sprite where it started 

858 return (0) — do nothing 

85 9 end if 

860 

861 if codeWordP( toWord) then -- symbol moved to a different code word 

862 

863 moveSymbolInMsg(me, toWord) 

864 

865 else symbol not placed on a coded word; disappear it 

866 — change this to accomodate picture messages 
867 

868 deleteSymbolInMsg(me) — take it out of msg 

869 

870 end if 

871 

872 else symbol moved from somewhere else; maybe new or no text in msg 

873 this shouldn't happen until we accomodate picture messages 

875 end if 
876 

877 updates tage 
878 

87 9 end mouseUp 
880 

881 
882 

88 3 WordI is the index of the word in the message. 

884 — Normally wordl points to a coded word. 

885 — Checks should have been done prior to call to ensure that wordl 

886 does not already have a symbol. 
887 

888 — Note all locations in layoutlndex are relative to the origin of 

889 — the "MessageSpace" field 
890 

891 on placeSyxnbolInText me, wordl 
892 

89 3 global rmG_spaceWidth 
894 global rmG_msgBody 
895 

896 set wordlndex = wordl update my property 

897 set fieldNum = the number of member "MessageSpace" 

898 set textOrigin = the loc of sprite 2 sprite for "MessageSpace" 

899 set message = getAt (rmG_msgBody, 2) 
900 
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901 set startChar = getLayoutProp (wordlndex, #f irstCharPos) 

902 set startloc = getLayoutProp (wordlndex, #f irstCharLoc) 

903 set endloc = getLayoutProp (wordlndex, #lastCharLoc) 
904 

905 If wordSpaceH(wordl) < 120 then --includes spaces before & after 

906 set shiftDistance = integer ((120 - ( get At (endloc, 1) - -. 

l®l getAt (startloc, 1)) ) 12) 

y Uo shift at beginning of word 

909 set nchars = shif tTextRight (startChar , shiftDistance, fieldNum, 

910 rmG_spaceWidth) 

911 set startChar = startChar + nchars 

912 set startLoc = myCharPosToLoc (member "MessageSpace" , startChar) 

913 set endChar = getLayoutProp (wordlndex, #lastCharPos) + nchars 
914 

915 shift at the end of word 

916 shi f tTextRight (endChar, shiftDistance, fieldNum, rmG_spaceWidth) 

917 set endLoc = myCharPosToLoc (member "MessageSpace" , endChar) 
918 

919 setLayoutProp(wordI, #f irstCharPos , startChar) 

92 0 setLayoutProp(wordI, #f irstCharLoc, startLoc) 

921 setLayoutProp(wordI, #lastCharPos, endChar) 

92 2 setLayoutProp(wordI, #lastCharLoc, endLoc) 
923 
924 

925 update all forward words info and symbols 

92 6 repeat with x in message 

927 set i = getProp(x, #wordIndex) 

92 8 if i > wordl then 

929 set startchar = getLayoutProp (i , #f irstCharPos) + 2*nchars 

930 — setProp(x, #charPos, startChar) — never change this 

931 setLayoutProp(i, #f irstCharPos , startChar) 

93 2 set startLoc = myCharPosToLoc (member fieldNum, startChar) 
933 setLayoutPropfi, #f irstCharLoc , startLoc) 

93 4 set endChar = getLayoutProp (i , #lastCharPos) + 2*nchars 

935 setLayoutProp(i, #lastCharPos, endChar) 

936 set endLoc = myCharPosToLoc (member fieldNum, endChar) 

937 setLayoutPropfi, #lastCharLoc, endLoc) 
938 

939 place the symbol 

940 set nextSymbol = getLayoutProp (i, #symbolSprite) 

941 if nextSymbol then 

942 set the baseLoc of sprite nextSymbol = 

943 centerOnWord (member "MessageSpace", startLoc, endLoc) + 

944 textOrigin 

£45 set the loc of sprite nextSymbol = the baseLoc of sprite 

946 nextSymbol 

947 end if 
948 

94 9 end if i > wordlndex 
950 end repeat all forward words 
951 

952 end if need to shift words 

953 
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95 4 — handle this word's symbol placement (whether or not text shifted) 

o^ft setLayoutProp(wordI, # symbol Sprite, the spriteNum of me) 

95 6 set the forecolor of word wordindex of field "MessageSpace" = 0 

95 7 

95 8 update my sprite property 

of o location is adjusted to be relative to stage origin 

960 set baseLoc = c en terOnWord (member "MessageSpace", -i 

961 getLayoutProp (wordl, #f irstCharLoc) , 

getLayoutProp (wordl, #lastCharLoc) ) + textOrigin 

963 

of c Set the l0C ° f & P rite the spriteNum of me = baseloc 

965 record the symbol's castmember into the MessageBody 

966 setProp(getAt (message, getLayoutProp(wordI, #msglndex) ) , - 

# symbol, the memberNum of sprite the spriteNum of me) 

9 6 8 

969 end placeSymbolInText 

970 

971 

972 

97 3 Moves the location of the symbol in the message 

974 jf necesary, checks that toWord is a codeword should be done 

975 prior to calling this handler. 

976 

977 on move Symbol inMsg me, toWord 

978 

97 9 remove sprite from old word 

98 0 setLayoutProp (wordindex, # symbol Sprite, 0) 

981 setProp(getAt(getAt (rmG_msgBody, 2), getLayoutProp (wordindex, 

982 #msglndex) ) , 

983 #symbol, 0) 

984 since decoder can't move symbols in message, this is the coder 

985 set the forecolor of word wordindex of field "MessageSpace" = 6 --red 
9 8 6 

987 put sprite on new word 

988 PlaceSymbolInText (me, toWord) 
989 

9 90 end moveSymbol InMsg 

991 

992 

993 

oo£ Currently does not re just text to create less space 

995 around the word the symbol was moved from. 

996 

997 on deleteSymbolInMsg me 

998 global rmG_msgBody 
999 

1000 setLayoutProp (wordindex, #symbolSprite, 0) 

™1 setProp(getAt(getAt(rmG_msgBody, 2), getLayoutProp (wordindex, 

1002 #msglndex) ) , -» 

1003 #symbol, 0) 
1004 

innf " since decoder can't move symbols in message, this is the coder 

1006 set the forecolor of word wordindex of field "MessageSpace" = 6 --red 
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1007 

1 008 recycleMessageSymbol (me) 
1009 

1010 end deleteSymbolInMsg 

1011 

1012 

1013 

1014 on toggleVisible me 
1015 

1016 set the visible of me = not the visible of me 

1017. 

1018 end togglevisible 
1019 

1020 message authoring handlers 

1021 — clearMessageSpace clears the workspace, the symbols and 

1022 — the guesses . 

1023 For now, in order to simulate SENDING a MSG this function 

1024 -- does not get rid of the active message in rmG msgBody 

1025 " 

1026 on clearMessageSpace 

1027 global gFreeSpriteList 

1028 global rmG_noSimulate 
1029 

1030 if not rmG_noSimulate then 

1031 

1032 end if 
1033 

1034 first, make symbols invisible and free sprites 

1035 repeat with i = 21 to 35 

1036 recycleMessageSymbol (sprite i) 

1037 end repeat 
1038 

1039 clear the references to symbol sprites from the message Index 

1040 clearLayoutSymbols ( ) 
1041 

1042 — second, clear away TypelnText fields for guesses 

1043 repeat with i = 39 to 44 

1044 set the visible of sprite i = FALSE 

1045 set the loc of sprite i = point (-100, -100) — put offstage 

1046 put ■ " into field (the memberNum of sprite i) 

1047 end repeat 
1048 

1049 third, clear away old template if any 

1050 put " " into member "MessageSpace" 

1051 set the forecolor of member "MessageSpace" =0 -- white 
1 052 

1053 updateStage 
1054 

1055 end clearMessage 
1056 

1057 — 

1058 — message authoring handlers continued 
1 059 
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1060 PlaceGraphics is called to put the symbols and guesses into the 

1061 text. 

1062 Assumes that the text has been laid out and the layout 

1063 index has been created. • 

1064 

1065 on placeGraphics 
1066 

1067 global rmG_msgBody 

1068 global rmG_guesses , rmG_state, rmG_mode 
106 9 global rmG_symbolcastName 

1070 

1071 set textSprite =8 — sprite reserved for Rebus message field 

1072 set textOrigin = the loc of sprite textSprite 

1073 set message = getAt(rmG msgBody,2) 
1074 

1075 — First, place the symbol graphics 

1076 repeat with x in message 

In^I if 9 etPro P< x ' #code) then code word might have symbol 

1078 set index = getProp(x, #wordIndex) 

1079 set xMember = getProp(x, #symbol) 
1 080 

if xMember > 0 then — code word does have symbol 

1082 set xSprite = get Layout Prop (index, #symbolSprite) 

if xS P rite = 0 then . — no sprite assigned to symbol 

1084 set xSprite = newMes sage Symbol (member xMember of castLib-> 

] 2§f rmG_symbolcastName) 

i Uob end if 

1087 if xSprite <> 0 then — 0 if newMessage couldn't get one 

1088 placeSymbolInText (sprite xSprite, index) 

1089 else can't do anything, no more sprites. 

1090 alert "No more sprites for symbols!!" 

1091 end if 
1092 

1093 if rmG_mode = #display OR rmG_state = #decln or rmG state = 

1094 #done then 

1095 --can't move symbols 

1096 set the moveableSprite of sprite xSprite = FALSE 

1097 end if 
1098 

else nothing code word does not have a symbol 

else nothing not a code word 

1102 repeat — finished processing symbols 

I 103 

1104 Second, place the typein text fields 

II nf if rmG - state K> #new then coder or decoder needs to see typedtxt 
1106 placeGuesses 

1 1 07 end if 
1 108 

1109 updateStage 
1110 

1111 end placeGraphics 
1112 



1099 
1 100 
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1113 message authoring handlers continued 

1114 message is a msgBody without state 

1115 Needs to insert spaces when text is laid out 

1116 

1117 on layoutText message, cWordColor 
1118 

1119 global rmG_traceFlag 
1120 

1121 if rmG^traceFlag then 

1122 put "In REBUS: layoutText" 

1123 put ■ coded word color = " & cWordColor 
1 124 end if 

1 125 

1126 — text invisible until changed 

1127 put " " into member "MessageSpace" 

1128 set the forecolor of member "MessageSpace" = 0 
1129 

1 1 30 set ts = 



_ it H 



1131 set indices = [] 

1 132 set symbols = [ : ] 

1133 set charPos = 1 

1134 repeat with x in message 

1135 set nspaces = 1 

1136 set ts = ts & getProp(x, #text) 

1137 if getProp(x, #code) then 

I 1 38 add (indices, getProp(x, #wordIndex) ) 

addProp( symbols, getProp(x, twordlndex) , getProp(x, #symbol) ) 

1140 end if 

1141 end repeat 
1142 

1143 put ts into field "MessageSpace" 
1144 

1145 color the text and make it visible 

1146 repeat with x = 1 to the number of words in ts 

II aq if Set0ne( indices, x) then — x is a code word 

if getProp( symbols, x) <> 0 then x has been coded 

]*; set the forecolor of word x of field "MessageSpace" = cWordColor 

115 0 else 

set the fore color of word x of field "MessageSpace" = 6 --red 

1152 end if 

1153 else 

]]ff set the forecolor of word x of field "MessageSpace" = 3 ~- blue 

1155 end if 

1156 end repeat 
1 157 

1158 end layoutText 

1159 

1160 

1161 layout index handlers 

iiaq ThS layout index records information about the position and 

]]*a location of coded words in the "MessageSpace" authoring and 

1164 display area. 

1165 --- it is a property list with the following structure: 
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1166 

1167 --- [ layoutlndex: [ f irstCharPos , f irstCharLoc , -» 

lastCharPos, lastCharLoc, symbolsprite, msglndex] 

1 1 69 etc ] 

1170 msglndex is a pointer to the list location of the word in the 

1171 rmG_msgBody data structure. 

1172 

1 173 

1174 on addlndexedWord wordlndex 

1175 global rmG_layout Index 
1 176 

1177 if getOne(getWordIndices() , wordlndex) then 

1178 return 0 

1179 else addProp (rmG_layout Index, wordlndex, []) 
1180 

1181 end addlndexedWord 
1 182 

1 183 . 

1184 

1185 .Properties in rmG_layout Index should NEVER be set outside of 

1186 this function! 

1187 Error handling should be inserted. 

1188 

1189 on setLayoutProp wordlndex, indexProp, val 

1190 global rmG_layout Index 
1191 

]]to if listp( ^ etPr °P (rmG - la y° utIndex ' wordlndex)) then —index is valid 

1193 case indexProp of 

1 1 94 #firstCharPos: 

1195 setAt (getProp (rmG_layoutInde 

1 1 96 #f irstCharLoc: 

1197 setAt (getProp(rmG_layoutInde 

1 1 98 #lastCharPos: 

1199 setAt (getProp(rmG_layoutInde 

1 200 #LastCharLoc: 

1 2 °1 setAt (getProp(rmG_layoutInde 

1202 # symbol Sprite: 

1 203 setAt (getProp(rmG_layoutInde 

1204 #msglndex: 

1205 setAt (get Prop (rmG_layoutInde 

1206 otherwise 

1207 alert "ERROR: ■ & indexProp & " not a valid property for -. 

1208 rmG_layout Index" 

1209 end case 

1210 else 

1211 alert "ERROR: Invalid word index. Word " & wordlndex & -i 

1212 " may not De a co d e d word. " 

1213 end if 
1214 

1215 end setLayoutProp 
1216 
1217 
1218 



wordlndex) , 


1, 


val) 


wordlndex) , 


2, 


val) 


wordlndex) , 


3, 


val) 


wordlndex) , 


4, 


val) 


wordlndex) , 


5, 


val) 


wordlndex) , 


6, 


val) 
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1219 layout index handlers continued 

1220 Access function for Layoutlndex 

1221 

1222 on getLayoutProp wordlndex, indexProp 

1223 global rmG_layout Index 
1224 

1225 set val = [] 

1226 if listp(getProp(rmG_layoutIndex, wordlndex)) then —index is valid 
i"' case indexProp of 

1228 #firstCharPos: 

I 222 set val = getAt (get Prop (rmG_layout Index, wordlndex), 1) 

'230 #firstCharLoc: 

1221 set val = ST e tAt ( ^t Prop (rmG^layout Index, wordlndex), 2) 
12 32 #lastCharPos: 

1222 Set val = 9 etAt ( get Prop (rmG_layout Index, wordlndex), 3) 
1234 #LastCharLoc: 

}222 set val = getAt ( get Prop (rmG_layout Index, wordlndex), 4) 

i^oo #symbolSprite : 

I 221 S8t Val = g etAt (g etPr °P(rmG_layout Index, wordlndex), 5) 

■ <238 #msglndex: 

I 222 set val = g etAt ( get Prop (rmG_layout Index, wordlndex), 6) 

•240 otherwise 

1 211 alert "ERROR: " & indexProp & ■ not a valid property." 

12 42 end case 

1243 else 

1244 alert "ERROR: Invalid word index. ■ 

1245 end if 
1246 

1247 return val 
1248 

1249 end getlayoutProp 

1250 

1251 

1252 on getWordlndices 

1253 global rmG_layoutIndex 
1254 

1255 set indices = [] 

1252 repeat with i = 1 to count (rmG_JLayout Index) 

1211 add(indices, getPropAt (rmG_layout Index, i) ) 

1258 end repeat 
1259 

1260 return indices 

1261 end getWordlndices 
1262 

1263 
1264 

I 22* " return the wordlndex associated with the sprite 
12 66 

1267 on getSpriteWord spriteNum 

1269 set codewords = getWordlndices ( ) 

1270 repeat with i in codewords 

1271 if getLayoutProp (i, #symbolSprite) = spriteNum then return(i) 
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1272 end repeat 
1273 

l%Zt return(O) -- no coded wrod associated with sprite 
1275 

1276 end getSpriteWord 

1277 

1278 

1279 layout index handlers continued 

1280 

loci " Should only be called after the template has been laid out 

]iat " in the Messa geSpace. Otherwise the information will not be 

i too correct. 

1284 

1285 on makeLayoutlndex msgWords 

1286 global rmG_layout Index 
1287 

3oo5 " for safet V make sur * Layoutlndex is clear before starting 

1^09 set rmG_layout Index = [:] 

1290 set textOrigin = the loc of sprite 2 -sprite for MessageSpace" 

1292 set i = l 

1293 repeat with x in msgWords 

<on£ Set index = getProp(x, #wordIndex) 

1295 addlndexedWord ( index ) 

]oq7 Set startPos = getProp( X/ #charPos) 

ioqq setLayoutProp( index, #f irstCharPos , startPos) 

]ofto setLayoutProp( index, #f irstCharLoc , 



^299 myCharPosToLoc (member "MessageSpace", startPos) 



) 



i?no SGt endPos = startPos + length (get Prop (x, #text) ) - 1 

iono setLayoutProp( index, #lastCharPos , endPos) 

]303 setLayoutProp( index, #lastCharLoc , -. 

] one myCharPosToLoc (member "MessageSpace" , endPos) ) 

io05 setLayoutProp( index, #msglndex, i) 

1 306 set i = i + l 

1307 

i?no assume that if the index has not bee n created, 

1J09 — sprites have not yet be assigned to symbol graphics 

1J1U — Could use this property only for coded words but it is probably 

ldll not worth it. 

1312 setLayoutProp( index, #symbolSprite, 0) 

1 o 1 o 

1314 end repeat 

1315 

1316 end makeLayoutlndex 

1317 

1318 

1319 

1320 

1321 on clearLayout Symbols 

1322 global rmG_layoutIndex 
1323 

1324 repeat with x in rmG_layout Index 
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1325 setAtfx, 5, 0) 

1326 end repeat 
1327 

1328 end clearLayoutSymbols 
1329 
1330 
1331 
1332 
1333 



View Handlers Sprites 39 to 44 are reserved for guesses 



1334 on HideOuesses 

1335 repeat with i = 39 to 44 

1336 puppetSprite i, TRUE 

1337 set the visible of sprite i = FALSE 

1338 end repeat 

1339 end HideGuesses 
1340 

1341 on ShowGuesses 

1342 repeat with i = 39 to 44 

1343 puppetSprite i, TRUE 

1344 set the visible of sprite i = TRUE 

1345 end repeat 

1346 end ShowGuesses 
1347 

1348 on HideSymbols 

1349 global rmG_state, rmG_userName 
1 350 

1351 if rmG_state = #decln then 

iofo if getPr °P( rmG - mailD ata / #to) = rmG_userName then 

13 53 from the decoder's inbox 

}354 set wcolor = 0 — coded words white 

loci elSe User Sent this messa 9 e fc o someone else 

1356 set wcolor = 6 coded words red 

1357 end if 

1358 else 

locn lf getPro P (rmG - mailD *ta, #to) <> rmG_userName then 

1360 User is not the coder 

1361 set wcolor = 0 coded words white 

1362 else — user is the coder 

1363 set wcolor = 6 -~ coded words red 

1364 end if 

1365 end if 
1366 

1367 set codewords = getWordlndices ( ) 

1368 repeat with i in codewords 

1369 set sNum = getLayoutProp (i , #symbolSprite) 
1 370 if sNum then 

1371 set the visible of sprite sNum = FALSE 

set the forecolor of word i of field "Mess age Space" = wcolor 

1373 end if 

1374 end repeat 
1375 

1376 end HideSymbols 
1377 
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1378 on ShowSymbols 
1379 

1380 set codewords = getWordlndices ( ) 

1381 repeat with i in codewords 

hooo SSt sNum = ST etL ayoutProp(i, #symbolSprite) 

1383 if sNum then 

"1384 set the visible of sprite sNum = TRUE 

j385 set the forecolor of word i of member "MessageSpace" = 0 

1386 end i f 

1387 

1388 end repeat 
1389 

1390 end ShowSymbols 
1391 

1392 Type-in text fields used to record decoder's solution for the 

13 93 message. 

" Eventuall Y these should be changed to list boxes for younger 

1395 children. 
1396 

i^oo " Assume sprites 39-44 have been reserved for guesses 

]ono " Field cast ambers "Guessl" through "Guess6" are reserved for 

1399 guesses. 

!2n? The width of thes e cast members should be set at 100 pixels 

Anl " ° r leSS < currentl V 90). This cannot be done with Lingo. 

Ano " ThS boxt ^ e should be #fixed. If text can't fit, the boxtype 

}*~* " should be changed to #scroll at runtime. 
1 404 

1405 

" assumes that the global variable rmG_msgBody has been 

1407 — initialized. 
1408 

1409 on initializeOuesses 

1410 global rmG_msgBody, rmG_guesses 
1411 

1412 for safety reset rmG_guesses 

1413 set rmG_guesses = [] 

Alt lf n0t list P (rmG - in sgBody) or count (rmG_msgBody) = 0 then 

A}~ alert "ERROR: rmG_msgBody not initialized correctly" 

1416 return 

1417 end if 
1418 

1419 set gNum = 1 

1420 repeat with x in getAt (rmG_msgBody, 2) 
1421 

iIoq if getPr °P (x ' #code) then --this word needs a guess 

Aox set cNum = the number of member ("Guess" & gNum) 

1426 getProp(X/ # sruess) into field cNum 

1427 format fields 

1 loo " mOSt text formattin g is done in startMovie handler 

set the forec olor of member cNum = 6 red 

1430 set the boxtype of member cNum = #adjust 
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1431 set the border of member cNum = 1 
1432 

1433 assign a sprite (from 39-44) to this guess 

1434 set sNum = 38 + gNum — first guess is 1 
1435 

1 43 6 ~ Although macromedia says you don't need to 

1437 -- puppet sprites in Director 6, 

1 433 — the guesses do not appear correctly unless the 

143 9 " sprites are puppeted. This is probably a result 

1440 ~ of the fact that there is nothing in the sprite 

144 1 channels for guesses in the score. 

} 442 " In any event unless this method turns out to be 

"I 443 — unstable. We will use it. 

1444 puppetsprite sNum, TRUE 
1445 

1 44 6 set the visible of sprite sNum = FALSE 

1 447 set the moveablesprite of sprite sNum = FALSE 

] 443 set the loc of sprite sNum = point (-100, -100) --offstage 

■ 44 9 set the memberNum of sprite sNum = cNum 

14 50 ~ set the editable of sprite sNum = FALSE 
1451 

1 4 52 record guess info into rmG_guesses 

1453 set guess = [ : ] 

14 54 addProp (guess, #cast, cNum ) 

1455 addProp( guess, #sprite, sNum) 

] 4 |6 addProp (guess, #wordIndex, getPropfx, #wordIndex) ) 

1457 append (rmG_guesses, guess) 

1458 

1459 set gNum = gNum + 1 

1460 else nothing it is not a coded word 

1461 end repeat 
1462 

1463 end initializeGuesses 

1464 

1465 

1466 on cleanupGues ses 

1467 global rmG_guesses 
1468 

1469 repeat with x in rmG_guesses 

1470 set sNum = getProp(x, #sprite) 

1471 set the visible of sprite sNum = FALSE 

1472 set the memberNum of sprite sNum = 0 

1473 put " " into member getProp(x, #cast) 

1474 end repeat 
1475 

1476 set rmG_guesses = [] 
1477 

1478 end cleanupGuesses 

1479 

1480 

IaoI " Places a s P^ite for each guess just below the word that it 

1482 corresponds to. 
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M?? ~~ Assume that rmG_guesses has been properly initialized with each 

1 484 guess . 

1485 

1486 on placeOuesses 

1487 global rmG_guesses, rmG_state, rmG mode 
1488 

If?? sprite 2 is Rebus message field. It's cast member is 

1490 "MessageSpace" 

1491 set textOrigin = the loc of sprite 2 
1492 

1493 repeat with x in- rmG guesses 
1494 

iloc if getLayout Prop (get Prop (x, iwordlndex) , # symbol Sprite) then 
— this word is coded; it needs a guessbox 

1 497 

]^98 set guessSprite = getProp(x, #sprite) 

1499 set guessMember = the memberNum of sprite guessSprite 
1500 

| 501 if rmG_state = #decln and rmG_mode = #author then 

^|02 set the editable of member guessMember = TRUE 

J^X? else set the editable of member guessMember = FALSE 
1504 

1505 — place the sprite 

1506 set the loc of sprite guessSprite = -» 

]t?Z getLayoutProp(getProp(x, iwordlndex) , -. 

]tnQ #firstCharLoc) + textOrigin + point (0, 2) 

JchA Set the visible of sprite guessSprite = TRUE 
1510 

1511 end if — x is a coded word 
1512 

1513 end repeat x in rmG_guesses 

1514 updatestage 
1515 

1516 end placeGuesses 
1517 

1518 

IcI^ Reads la test guesses from the guess cast members back into 

1520 -- the message body. 

1521 

1 522 on putGuessesInMsg 

1524 ^ loDal rmG_msgBody, rmG_guesses 

1525 set message = getAt (rmG_msgBody, 2) 
1 526 

1527 repeat with x in rmG_guesses 

Itoa Set Str = the text of member getPropfx, #cast) 

15 29 repeat with y in message 

15 30 if getProp(y, #code) then 

] 5? J if getProp(y, #wordIndex) = getPropfx, iwordlndex) then 

J^qo setProp( y/ #guess, str) 

1533 exit repeat 

1534 end if 
1 535 end if 
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1536 

1537 end repeat 

1538 end repeat 
1539 

1540 end putGuessesInMsg 

1541 

1542 

1543 

1544 

1545 — this function is obsoleted 
1546 

1547 on sendlt 

1548 global rmG_msgBody, rmG_mailData, rmG_state, rmG_mode 
15 49 global rmG_noSimulate 

1550 

3 If! —It seems that rmG_state gets reset on return to EmailMain 
ioo<£ — reset it here 

1553 -- set rmG_state = getAt (rmG_msgBody, 1) 

1554 — if SIMULATE SEND but don't change MsgBody, otherwise send 

I ODD 

1556 if not rmG_noSimulate then 

1 557 simulateSendO 
1558 

1559 else called from email main 
1560 

Ittl " neXt is n0t suffici ent; should check for a valid address 

100 ^ if the text of member "To" = " " then 

1563 alert "No one to send to...." 

1564 return 

1565 end i f 
1566 

iPfto " read header information from fields 

1568 — back into the message body 

1569 

1570 upda teHeader 
1571 

1572 toggleRebusState ( ) 

1573 set rmG_mode = #display — can't edit message further 



putGuessesInMsg 



1574 
1575 
1576 

1577 — ADD UPDATED MESSAGE BODY TO rmG_mailData 

15 78 

1580 setaProp rmG_mailData, #msgbody, rmG_msgBody 

1581 

1582 SEND MESSAGE TO EMAIL MAIN 

1583 — NOTE: sendToggle lets messageHandler know to send the message 

1585 rather than sim Ply save a previously sent message 

1586 set sendToggle = 1 
1587 

1588 tell the stage 



Appendix D: KidCode® Lingo Client/Server Rebus Message 
Handling Component Scripts 

Page 31 

1589 

1590 global rmG_mailData, rmG mode 

1591 

1592 messageHandler sendToggle 

15 93 

1594 end tell 

1595 

1596 

1597 end if 
1598 

1599 end 

1600 

1601 

1602 on simulateSend 

1603 global rmG_msgBody, rmG_mailData, rmG state 
1604 

1605 alertSentO 

1606 toggleRebusState ( ) 

1607 setProp(rmG_mailData, #From, the text of field "to") 
nf™ clearMessageSpace — this clears symbols and guesses 

16 0 9 openMessage 
1610 

1611 end simulateSend 
1612 

1613 : . 

1614 



1615 on toggleRebusState 

1616 global rmG_state, rmG_msgBody 
1617 

1618 case rmG_state of 

1619 #new: 

1620 deleteAt (rmG_msgBody, 1) 

1 621 AddAt (rmG__msgBody, 1, # dec In) 

1622 #decln: 

1623 deleteAt (rmG_msgBody, 1) 

1624 AddAt (rmG_msgBody, 1, #codIn) 

1625 #codIn: 

1626 deleteAt (rmG_msgBody, 1) 
addAt(rmG_msgBody, 1, #decln) 

1628 #gotIt: 

I ton coder indicated that they solved it before sending 

lbdU ~ deleteAt (rmG_msgBody, 1) 

}f 31 — addAt(rmG_msgBody, 1, #gotIt) 

1632 end case 

1633 

1634 set rmG_state = getAt (rmG_msgBody, 1) 
1635 

1636 end toggleRebusState 

1637 

1638 

1639 Text format 

1640 

1641 Initialize formatting of all visible text fields 
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1642 -- Should be called when movie starts 
1 643 

1644 on f ormatPields 
1645 

1646 repeat with i = 1 to 6 

\^VL SetTextlnfo "Guess" & i, » «, "left", "arial", 20, "bold" 

1648 end repeat 

1649 

1650 SetTextlnfo "To", " " , "left", "arial", 14, "bold" 

If II SetTextlnfo "ToDown", " ", "left", "arial", 14, "bold" 

1652 set the lineHeight of field "ToDown" = 30 

1653 -- set the lineHeight of field "To" = 18 

1654 — set the border of member "To" = 1 

1655 set the border of member "ToDown" = 1 

1656 set the margin of member "To" to 4 

1657 set the margin of member "ToDown" to 8 
1 658 

1659 end formatFields 

1660 

1661 

1662 

1663 — SetUpMes sage Space 

i«fc " need t0 know difference between default line height 

JXo5 ~~ f ° r a given fontsize and the lineHeight we have set 
1666 

1667 on setupMes sage Space 

1669 global rmG_spaceWidth — pixel width of a space in "MessageSpace' 

1670 
1671 

1673 ^ forecolor of melnber "MessageSpace" = 0 —white is invisible 

1674 standard lineheight for 32 pt font = 39 

1675 set the lineHeight of member "MessageSpace" = 95 
1 676 

1677 set rmG_spaceWidth = charwidthd, "MessageSpace") 

1678 

1679 

1680 end setupMessageSpace 

1681 

1682 

1683 

1684 utilities 

1685 — 

1686 MyCharPosToLoc 

iapq Adjusts for bug in Lingo charPosToLoc function and returns 

]eoo ~" correct results regardless of whether the lineHeight of the 

1089 field has been set. 

1690 

iaoo ~"~ Lingo bug causes CharPosToLoc function to return different 

ifio* "~ results if the lineheight of a field has been set - even 

iaoa lf the linehei ^ ht is set to exactly the value it started at 

1694 — The function works correctly as long as lineheight has not 



SetTextlnfo "MessageSpace", " ", "left", "arial", 32, "bold" 
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icq 5 been Set ' If the linehei 9 ht has been set, vertical 

icof """ coordinates = Point (x, -2) for characters in the first line 

i«oq point(x ' line#*lineHeight -2) characters on subsequent 

iaoo lines - Unfortunately, this is not where the characters are! 

1701 ° n myCharPosToLoc fisldMember, charPos 

1702 set maybeLoc = charPosToLoc ( f ieldMember, 1) 

if getAt(ma y beLoc < 2 ) <> -2 then — Macromedia is good 

1704 return ( charPosToLoc (f ieldMember, charPos) ) 
1 705 

1706 else ~ fix the loc 
1707 

1708 set memNum = the number of member f ieldMember 

1709 set fHeight = getFontHeight (memNum) 

1710 set lHeight = the lineHeight of field memNum --if badloc, this is 

1711 correct 

1712 if the fontSize of field memNum <=24 then 

1713 set topHeight = 2 

1714 else set topHeight = 6 

1715 set belowHeight = lHeight - fHeight - 2 
1716 

1717 adjust Lingo value to be correct 

\L\\ set badL °c = charPosToLoc (f ieldMember, charPos) 

111* return ( badLoc + point (0, fHeight +2 + topHeight)) 

1720 end if 
1721 

1722 end myCharPosToLoc 
1723 

1724 , 

i^of GetFontHeight is used to determine the vertical distance of 

1726 tallest character for any font. 

H^ol This distance excludes any space above or below the font. 
172 8 

1729 on getFontHeight f ieldMemberNum 

17^1 lineheight may have been changed so need to create a 

new cast m ember with font, fontsize and style. To determine 

1732 the fontHeight 

1733 

1734 set tmpNum = findEmpty (member 1) 

]Z%~ Set tm P Member = new(#field, member tmpNum of castLib "Internal") 
i / oo 

1737 put "Test" into field tmpNum 

1738 set the font of field tmpNum = the font of field f ieldMemberNum 
Set the fontsize of field tmpNum = the fontSize of field 

1740 f ieldMemberNum 

IZil Set the fontst yle of field tmpNum = the fontStyle of field 

1742 f ieldMemberNum 

1743 

]Z^i " get the location of the lower left corner of 1st char 

Ha* S8t bottomLeft = charPosToLoc (member tmpNum, 1) 
1 746 

1747 set tmpMember = 0 clear reference to the field before erasing 
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1748 erase member tmpNum 
1749 

1750 if the fontsize of field f ieldMemberNum <=24 then 

1751 ~ 1st line starts 2 points below top of field 

1752 return (getAt (bottomLef t , 2 ) - 2) 

1753 else 

1754 — 1st line starts 6 points below top of field 

1755 return (getAt (bottomLef t, 2) - 6) 

1756 end if 
1757 

1758 end getFontHeight . 
1759 

1760 

1761 LocToWordPos returns the index of the word under loc in 

1762 the field. Vertical space in the field is assigned to the 

1763 closest char in the field. If loc is on a space between 

iTft 4 words (horizontal only, see below), the function returns 0. 

1765 If the loc is not in the field, results are unpredictable. 

1766 The Lingo loctoCharPos function will return either the first 

iTco ° r the laSt character in the field, depending upon the loc. 

1768 Comparable to the built-in Lingo locToCharPos function, 

1769 the location argument is assumed to be relative to the origin 

1770 of the text field. 
1771 

177 2 Uses the Lingo function locToCharPos . locToCharPos is not 

\ZZ\ sub ^ ect to the Lingo lineHeight bug. All locations with 

1774 vertical coordinates within a lineheight return a character 

\ZZ\ on that line - For example, if lineheight is 36 then any location 

1776 --- in the interval, [point (x,0) point (x, 36)] with return a character 

1777 on the first line, any location in the interval, 

1770 "~ C ? oint(x ' 37) Point (x, 72)] will return a character in the second 

i7on line, etc. Note: a character is returned even if the location 

1780 is on the white space between lines. 

1 781 

1782 on locToWordPos f ieldMember , locInField 
1783 

1784 set charPos = locToCharPos ( f ieldMember , locInField) 
1 785 

1786 FIX THIS TO CHECK THAT LOC IS IN FIELD ELSE RETURN 0. 

3tqI "" locTocharPos wil1 return 1 if the loc is above or left of the field 

]^o? Zt wil1 return lenght(text) + 1 if the loc is below or right of 

178 9 field 

1790 

1Z~1 if char charPos of field fieldMember = " " then on a space 

1792 return(O) 

1793 else 

IZ^t return(the number of words in char 1 to charPos- of field 

1795 fieldMember) 

1796 end if 
1797 

1798 end locToWordPos 
1799 

1800 . 



— determines how much horizontal space in pixels is taken 
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1801 

1802 on charwidth charPos, afield 

1803 return GetAt (charPosToLoc (member afield, charPos+1) - 

1 804 charPosToLoc (member afield, charPos) , 1) 

1805 end charwidth 
1806 

1807 . - 

1808 
1809 

1810 on wordSpaceH wordlndex 
1811 

1812 set textOrigin = the loc of sprite 2 

iftiA S6t lastC = le ngth(word 1 to (wordlndex+l) of field "MessageSpace" ) -i 

" length(word wordlndex +1 of field "MessageSpace") + 1 

1815 if wordlndex = 1 then 

1816 set firstC = 1 

1817 else 

1818 set firstC = length (word 1 to (wordlndex-l ) of field "MessageSpace") 
1819+1 

1820 end if 

1821 

iqoo Set firstLoc = royCharPosToLoc (member "MessageSpace", firstC) 

I an a Set lastLoc = myCharPosToLoc (member "MessageSpace", lastC) 
1824 

1825 if getAt (firstLoc, 2) <> -. 

]f?5 getAt (getLayout Prop (wordlndex, #f irstCharLoc) , 2) then 

]qoo ~~ if WOrd before is not on sam « line this is first in line 

1828 

1829 

1830 

1831 else if getAt (lastLoc, 2) <> i 

]?qq getAt (getLayout Prop (wordlndex, #lastCharLoc) , 2) then 

]qZa " lf WOrd after is not on same line this is last in line 

18 34 

1835 

1836 

1837 else this is in the middle of the line 

1838 
1839 
1840 

1841 end if 

1842 

1843 return wspace 

1844 end wordSpaceH 
1845 
1846 
1847 

]qa! """ centerInBox sets sprite location to align registration point 

1849 to the center of the rectangle 

1850 

1851 on centerInBox aSprite, aRect 
1 852 



set wspace = getAt (lastLoc, 1 ) - the left of sprite 8 



set wspace = the right of sprite 8 - getAt ( firstLoc , 1 ) 

se this is in the middle of the line 

set wspace = getAt (lastloc, 1) - getAt (firstLoc, 1) 



Appendix D: KidCode® Lingo Client/Server Rebus Message 
Handling Component Scripts 

Page 36 

1853 set wordHCenter = getAt (aRect, 1) + integer ( (getAt (aRect, 3 ) - 

1854 getAt (aRect, 1) ) 12) 

1855 set wordVCenter = getAt (aRect , 2 ) + integer ( (getAt (aRect , 4 ) - 

1856 getAt (aRect, 2) ) /2) 

1857 set the locH of sprite aSprite = wordHCenter 

1858 set the locV of sprite aSprite = wordVCenter 
1 859 

1860 return(the loc of sprite aSprite) 

1861 end center InBox 
1862 

1863 , „ 



1864 — - CenterOnWord returns a point that is the center of the 

1865 word contained in the space between startLoc and endLoc. 

1866 Mainly it takes care of vertical position of word center. 

iqq ~~~ Xt centers at 1/2 the height of the font. (Not lineheight) 

1868 Assumes startloc and endloc are bottom left corners of first 

1869 and last characters. 

1870 

1871 on centerOnWord f ieldMember, startLoc, endLoc 
1872 

1873 for performance make this a global for "MessageSpace" 

1874 set f Height = getFontHeight ( f ieldMember ) 

]oll S8t xCoord = getAt (startLoc, 1)+ ( (getAt (endLoc, 1) - getAt (startLoc, 

1876 l))/2) 

1877 return (point (xCoord, getAt (startLoc, 2) - fHeight/2)) 
1878 

1879 

1880 end centerOnWord 



1881 

1882 — - ■ . 

1883 

1884 makeWordRect returns a rect that bounds a word in a field member, 

loo* " The reCt includes 1/2 of the space below the line of the word. 

The return value ha s coordinates relative to the field Member, 
i q o o ~~ Assume sta ^tloc and endloc are coordinates relative to origin 
1888 of the fieldMember argument. 

icon " Assume that startloc and endloc point to the bottom left corner 
1890 — of the first and last characters of the word. 
1891 
1892 
1893 
1894 
1895 
1896 

1897 set fieldNum = the number of fieldMember 

1 898 
1899 

1900 end makeWordRect 



1901 
1902 
1903 
1904 
1905 



on makeWordRect fieldMember, startloc, endloc 

set wordRect = rect (0 , 0 , 0 , 0 ) value to be returned 



on shiftTextRight cPos, pixDistance, fieldNum, spaceWidth 



I 
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1906 

3521 Set nchars = integerf float (pixdistance) / spaceWidth) 

1908 repeat with i = 1 to nchars 

1909 put " •• before char cPos of field fieldNum 

1910 end repeat 

1911 return nchars 
1912 

1913 end shif tTextRight 

1914 

1915 

1916 , 

]q]q ~~~ ? odeWordp returns true if the word is a word 

1918 in the message to be coded 

1919 

1 920 

1921 on codeWordP wordlndex 

1922 global rmG_ms gB ody 
1923 

1924 set message = getAt (rmG_msgBody, 2 ) 

1925 repeat with i = 1 to count (message) 

1926 set nextltem = getAt (message, i) 

1927 if getProp (nextltem, #code) then 

1928 if getProp (nextltem, #wordIndex) = wordlndex then 

1929 return(l) 

1930 end if 

1931 end if 

1932 end repeat 
1933 

1934 return(O) 
1935 

1936 end codeWordP 

1937 

1938 

1939 

1940 on fillToList 

1941 global rmG_registeredUsers 
1 942 

1943 put " " into field "ToDown" 

1944 repeat with uname in rmG_registeredUsers 

1945 put uname & RETURN after field "ToDown" 

1946 end repeat 
1947 

1948 end filltoList 

1949 

1950 

1951 

1 952 on alertSent 
1953 

1 954 go to frame "sent" 

1955 

1 956 end alertSent 
1957 

1958 
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1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1 987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 

201 1 



on flashSprite spriteNum 

set the visible of sprite spriteNum = -> 

not (the visible of sprite spritenum) 

starttimer 

repeat while the timer < 30 

nothing 
end repeat 

end flashSprite 



-- programming utility to easily copy scripts to cast members 
— call from the message window 

on copyScript fromCast, toCastl, toCast2 

repeat with i = toCastl to toCast2 

set the scriptText of member i = the scripttext of member fromCast 
end repeat 
end copyScript 



on clearScripts fromCast, toCast 

repeat with i = fromCast to toCast 

set the scriptText of member i = ' 
end repeat 
end clearScripts 



— score scripts sentmsg_loop 

on ex it Frame 

flashSprite (49) 

go to the frame 
end 



on mouseDown 

— make sure the flashing sprite is visible 
set the visible of sprite 49 = TRUE 
go to frame 2 

end 



score scripts f r_startMenus 
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2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 

2061 

2062 

2063 

2064 



on exitFrame 

global rmG_testState 

-- first clear any existing menus 
installMenu 0 

— maybe should setup graphics palette here 
if rmG_testState then 

installMenu "userTestMenu" 
else 

installMenu "standardMenu" 
end if 

end 

— score scripts f r_gotIt_loop 

on exitFrame 

repeat with i = 21 to 35 
togglevisible sprite i 
end repeat 

go to the frame 
end 



— API Public Handlers 

Ugly hack to work around problem with Director startup 

— of MIAWs. The problem is that, after calling a handler in the 
MIAW, the StartMovie handler for the MIAW does not run until 

the calling movie advances to its next frame. 

Therefore, the calling sequence in the calling movie 

— has to be engineered so that the real handlers in the MIAW do not 

— run until after control has been transfered back to the calling 
movie. However, at least one handler in the MIAW must be called 
by the calling movie before the StartMovie handler will run. 

startMeUp is the fake handler that, when called by the 

main movie, will upon return to the main movie, 
cause this movie's StartMovie handler to run. 

The second part of this wormy hack is contained in the MIAW's 

— StartMovie handler... It is a call to a workAround handler in 
the calling movie called continueComponent 

The calling movie's continueRebus handler calls the real handlers 
in the MIAW. 

on emc_startMeUp 

— put "Macromedia sucks!" 
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2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 

2081 

2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

21 08 

2109 

2110 

21 1 1 

2112 

2113 

21 14 

2115 

21 16 

2117 



global rmG_noSimulate 
set rmG_noSimulate = TRUE 
return (1) 

end emc_startMeUp 



-- API Public Handlers continued 

— initWindow is called by the stage when a Rebus movie is opened 

— It sets up the user information 

— Need to wait for the message before the templates and symbol group 

— can be setup. 



on emc_initWindow userName 

global rmG_registeredUsers 

global rmG_userName 

global rmG_UserGroup 

global rmG_layout Index 

global rmG_templates 

global rmG_traceFlag 



— list of KidCode system usernames 

— current username 

-- user group of current user 

-- ds to improve efficiency of layout 



if rmG_traceFlag then 

put "In REBUS :emc_InitWindow" 
. put " userName = " & userName 

end if 

tell the stage to emh_getRegisteredUsers ( ) 
set rmG_registeredUsers = the result 
set rmG_userName = userName 

tell the stage to emh_getUserData (userName) * 

set userData = the result 

set rmG_UserGroup = getAt (userData, 3) 

-- NEXT EXISTS SO THAT REBUS MOVIE CAN BE RUN IN SIMULATION MODE 

-- MUST BE SET TO FALSE TO RUN AS EMAIL COMPONENT! ! ! ! 

global rmG_noSimulate -- if TRUE, runs independent of email 

If the result = 0 then 

set rmG_noSimulate = FALSE 
else 

set rmG_noSimulate = TRUE 
end if 



initializeTemplates ( ) 



-set up rmG_templates 



Format the font properties of text fields and the MessageSpace 

setUpMessageSpace ( ) 
f ormatFields ( ) 

allow To field to be a listbox 

puppetSprite 50, TRUE 
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2118 

Set ^-layoutlndex ■ [:] records word position and loc info by 

2120 index 
2121 

2122 return(l) 

2123 end emc_ini tWindow 
2124 

2125 

2126 API Public Handlers continued 

2127 closeWindow is not called unless Rebus plays as 

2128 — a MIAW. 
2129 

2130 on emc.closewindow 

2131 f inishMovie 

2132 return(l) 

2133 end emc_closeWindow 
2134 

2135 . 

2136 

2137 on emc_getComponentInf o 
2138 

2140 ~~ eventually the MIMEt YPe field will be application/x-rebus 

2142 ^^^^ist^Rebus^S^msgHandler, "rebus") ) 

2143 end emc_getComponentInf o 
2144 

2145 

21 46 

2147 on msh_openMessage mailData, mode 

2148 global rmG_traceFlag 

2149 global rmG_registeredUsers 

2150 global rmG_msgBody, rmG_mailData, rmG__mode, rmG_state, rmG_symbol Group 

2151 global rmG_lineHeightFix 

2152 global rmG_noSimulate — False to run simulation independent of 

2153 email 

2154 global rmG_testState 

2155 global rmG_templates, gTemplatelndex 

2156 global rmG_symbolcastName, rmG_symbol Group 

2157 global rmG_userName 
2158 

2159 set rmG_mailData = mailData 
2160 

2161 if rmG_traceFlag then 

2162 put " In REBUS : msh_openMessage " 

2163 put " mode = " & mode 

2164 put " maildata = " & mailData 

2165 end if 
2166 

2167 set rmG_mode = mode 
2168 

2169 if rmG_noSimulate then 

2170 set rmG_msgBody = getProp (mailData, #msgbody) 
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2171 

2172 if count (rxnGjnsgBody) = 0 then — start a new message 

2174 startMessage ("default") 

2175 Fill header fields 

\\L% P ut get Prop (mailData, #to) into field "To" 

2177 Put rmG__userName into field "From" 

2 J 7 8 put the abbreviated date into field "Date" 

2 ] 7 f Put "Rebus Challenge" into field "Re" 
21 80 

2 ]81 — setup templates and symbols 

l]a~ set rm G-theTemplateIndex = getPos (rmG_templates , "default") 

2\\\ Set ^-sy™* 010 * 0 *? = getTemplateProp(" default", #symbols) 

?2?| " a( ^inistrator uses a different symbol library 

*1°6 if rmG_testState = 0 then 

2 ^2I set rmG -symbolcastName = "Symbols" 

2188 else 

| J IS set rmG_symbolcastName = getTemplateProp ( "default" , #library) 

'i»u end if 

2191 

2193 elSS Handle existing message 

\\ ^ set rmG_state = getAt (rmG_msgBody, 1) 

2]ge Set whichTem Plate = getAt (rmG_msgBody, 3) 

2197 clearMessageSpace 

2198 putHdrFields ( ) — read headers into field members 

oon? ~~~ setup symbols in graphics palette to match template 

OOno SSt theTem P late = getAt(rmG_msgBody,3) 

Set rmG - theTem P la teIndex = GetPos (rmG_templates , theTemplate) 

%%C\A S6t """-■ynibolcastNaine = getTemplateProp (theTemplate, #library) 

oorl S6t ^-SymbolGroup = getTemplateProp (theTemplate, #symbols) 

JJjjJ setupSymbolPalette rmG_symbolcastName 

2207 initial izeGuesses — uses global var rmG_msgBody 

2208 case rmG_state of 

2209 #new : 

layoutText(getat(rmG_msgBody,2) , 6) — coded words red 
%%\ \ makeLayoutlndex ( getAt ( rmG_msgBody , 2 ) ) 

placeGraphics ( ) 

2214 #decln: 

W\\ if 9 e tProp(rmG_mailData, #to) = rmG_userName then 

%%Yt from the decoder's inbox 

ii]o layoutText(getat(rmG_msgBody,2) , 0) — coded words white 

%%\\ else User sent this message to someone else 

,„n layoutText(getat(rmG_msgBod y/ 2) , 6) — coded words red 

end if 

ooll makeLayout Index (get At (rmG_msgBody, 2)) 

placeGraphics ( ) 

2223 
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2224 #codIn: 

\\\\ if g e tProp(rmG_mailData, #to) <> rmG_userName then 

ttty User is not the coder 

lool layoutText (getat(rmG_msgBody, 2), 0) — coded words white 
else — user is the coder 

oo\r\ layoutText (getat(rmG_msgBody, 2), 6) — coded words red 

"oU end if 

makeLayout Index (get At (rmG_msgBody, 2)) 

22 3 2 placeGraphics ( ) 
2233 

2234 #gotIt: 

hide scrolling symbol palette 

2236 repeat with i = 15 to 20 

2237 — puppet sprite i, TRUE 

Q o o o SSt the visible of sprite i = FALSE 

2 2 39 end repeat 

layoutText(getat(rmG_msgBody,2), 6) — coded words white 

%% * makeLayout Index ( getAt ( rmG_msgBody, 2 ) ) 

2242 placeGraphics ( ) 

2243 go to "go tit" 

2244 end case 
2245 

2246 end if 

2247 

2248 

2249 else Simulate mode 
2250 

ooco setupSymbolPalette rmG_symbo least Name 

00%\ Set rmG - state = getAt (rmG^msgBody, 1) 

oo%A lf rmG - state = #ne " then — user picked a template 

oocc S€t ^G-^sgBody = newMessageBody(whichTemplate) 

oott layoutText (getAt (rmG.msgBody, 2), 6) — 6 is white 

izZ% makeL ayout Index (getAt (rmG_msgBody, 2)) 

PP^ft initializeGuesses — uses global var rmG_msgBody 

ooVa e "~ don,t want to change message body or index 

ooVn layoutText (getAt (rmG_msgBody, 2), 0) — 0 is white 
makeLayout Index (getAt (rmG_msgBody, 2)) 

2261 placeGraphics ( ) 

2262 end if 

2263 end if Simulate 
2264 

2265 if mode = #display then 

ooef SGt the editable of member "To" = FALSE 

2 2 «7 else if mode = #author then 

2268 fillToListO 
2269 

2270 end if 
2271 

2272 retum(l) 
2273 

2274 end msh_openMessage 
2275 
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2277 

2278 on msh_clearMessage 

2279 

2280 c 1 earMes sageSpace 

2281 return(l) 

2282 end msh_clearMessage 
2283 

2284 
2285 

2286 API Public Handlers continued 

2287 

2288 on msh_sendMessage 

2289 

o?q? global rxnGjnsgBody, rmG_mailData, rmG_state, rmG_mode, rmG^userName 

global rmG_noSimulate 

2292 
2293 

2294 —IF SIMULATE SEND do everything differently 

2295 

2296 if not rmG_noSimulate then 

2297 simulateSend ( ) 

2298 return(l) 

2299 end if 
2300 

2301 called from email main 

2302 

ooha " neXt is n0t sufficier *t; should check for a valid address 

2304 if the text of member "To" = "" then 

2305 alert "No one to send to...." 

2306 return(O) 

2307 end if 
2308 

2309 

ool? " read header information from fields 

2311 — back into the message body 

2312 

2313 updateHeader 
2314 

2315 toggleRebusState ( ) 

2316 putGuessesInMsg 

2317 setaProp rmG_mailData, #msgbody, rmG_msgBody 
2318 

jj — ADD UPDATED MESSAGE BODY TO rmG_mailData 

create a copy for main because we need new rmG_mailData 



2320 
2321 



set msgToSend = duplicate (rmG_mailData) 

<L O Cm O 

oqoc prepare MessageSpace to start a new message 

oooc tel1 the stage to emh_getMessage(0, "rebus") 

2326 set rmG__mailData = the result 

2327 startMessage( "default" ) 
2328 

2329 — Fill header fields 
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2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 



put get Prop (rmG_mailData, #to) into field "To" 
put rmG_userName into field "From" 
put getProp(rmG_mailData, #date) into field "Date" 
put "Rebus Challenge" into field "Re" 

if 0 then — old code 

set rmG_mode = #display -- can't edit message further 

putGuessesInMsg 

— ADD UPDATED MESSAGE BODY TO rmG_mailData 
setaProp rmG_mailData, #msgbody, rmG_msgBody 

if 0 then debugging flags 

email main messageHandler calls resetStage (in main) 

which should reset rmG_mailData 

check here to see what has happened 

put "IN Sendlt; AFTER stage MessageHandler:" 

put "Rebus :rmG_mailData = " & rmG_mailData 

put "Rebus :rmG_msgBody = " & rmG_msgBody 

put "Rebus :rmG_state = " & rmG_state 
end if 
end if -- old code 



alertSentO 
return (msgToSend) 

end msh_sendMessage 



•in old code this was rmG_mailData 



on msh_replyMessage 

global rmG_mailData, rmG_rnsgBody, rmG_state, rmG_mode, rmG_userName 
global rmG_traceFlag 

if rmG_traceFlag then 

put "In REBUS :msh_replyMessage " 
end if 

if rmG_state = ftgotlt then do nothing and return 

alert "You can't reply, please start a new message." 
return (0) 

end if 

otherwise process the reply command 

— first swap the fields and reset the mode 
set rmG_mode = # author 

setProp(rmG_mailData, #to, getProp (rmG_mailData, #frora) ) 
setProp(rmG_mailData, #from, rmG_userName) 
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2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
241 1 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 



setProp(rmG_mailData, #re, "Re: 
openMessageO 

return ( rmG_mai IData ) 

end msh_replyMessage 



& getProp(rmG_mai IData, #re) ) 



on insh_PrintMessage 

needs to be implmented 

return(l) 

end msh_PrintMessage 

--- script of cast member closeWindow 

on mouseup 

-- Close the mailbox window 

if soundBusy(l) then sound stop 1 

tell the stage to emh_killComponent ( ) 

end 

--- script of cast member messageSpace 

on mouseUp 

III ^^inM^u^H^useV, - te f Origin 

is ist :rss? s w-zsK? ■ UPLOC ' 

^TSfforecoS of word -yword of field •ness.geSp.ce- <> 0 then 
speak ( astr) 
end if 
end if 



end 

— script of cast member symbolButtonUp 

on mouseUp 
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2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 



-- if here then the symbol button was up 

set the memberNum of sprite 3 = member "SymbolButtonDown" 
hideSymbols ( ) 
end 



script of cast member SymbolButtonDown 

on mouseUp 

if here then symbol button was down 

set the memberNum of sprite 3 = member " SymbolButtonUp" 
showSymbols ( ) 
end 



script of cast member guessButtonUp 

on mouseUp 

-- if here then the guesses button was up 

set the memberNum of sprite 4 = member "GuessesButtonDown" 
hideGuesses ( ) 
end 



script of cast member guess But tonDown 

on mouseUp 

-- if here then the guesses button was down 

set the memberNum of sprite 4 = member "GuessesButtonUp' 
showGuesses ( ) 
end 



script of cast member templateButtonUp 

on mouseUp 

global rmG_templates , rmG_theTemplateIndex 

set nTemplates = count (rmG_templates) 

if rmG_theTemplateIndex = nTemplates then 

set rmG_theTemplateIndex = 1 
else 

set rmG_theTemplateIndex = rmG_theTemplateIndex +1 
end if 



2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

251 1 

2512 

2513 

2514 

251 5 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 
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clearMessageSpace 

startMessage (getAt (rmG_templates , rmG_theTemplateIndex) ) 
end 



script of cast member paletteUpButton 

-- scroll up picts button 

— sprites 15 thru" 20 are reserved for symbols on 
-- scrolling symbol palette 

on mouseDown 

repeat while the stillDown = TRUE 

startTimer control scroll speed 

repeat with i = 15 to 20 -- palette sprites 
scrollUp sprite i 

alternative calling code for behavior 

— set xref = getAt (the scriptlnstanceList of sprite i,l) 

— call (#scrollup, xref) 
end repeat 

-- adjust timing of scroll speed 
repeat while the timer < 20 

nothing 
end repeat 

updateStage 

end repeat — while mouse stilldown 

end 



script of cast member paletteDownButton 

— scroll the symbol palette down 

on mouseDown 

repeat while the stillDown = TRUE 

startTimer control scroll speed 

repeat with i = 15 to 20 -- palette sprites 

scrolldown sprite i 
end repeat 

— adjust timing of scroll speed 
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2542 repeat while the timer < 20 

2543 nothing 

2544 end reDeat 
2545 

2546 updateStage 
2547 

2548 end repeat — while mouse stilldown 

2549 

2550 end 

2551 

2552 

2553 script of cast member To 

2554 

2555 on mouseUp 

2556 global rmG_mode 

off I ~~ Pul1 dOWn student field: change field from 

2558 — up (member 50) to down (member 51) 

2559 

2560 if rmG_mode = #author then -- allow changes to to field 

of f I Set the memberN ^ of sprite 50 to the number of member "ToDown" 

doo2 end if 

2563 

2564 end 
2565 
2566 
2567 

2568 script of cast member ToDown 

2569 

2570 on mouseUp 
2571 

of W ~~ Put selected user name into up version of student field 

^573 — and sw itch the 

2574 — field from down to up 

2575 P 

2576 put word 1 of line (the mouseLine) of field "ToDown" into field "To" 

2579 ^ memberNuin of s P ri te 50 to the number of member "To" 

2580 end 
2581 
2582 

2583 sample script for symbol cast member 

of at — each svmbo1 cast member needs this script 
2585 

2586 on mouseDown 

2587 global RGdownLoc 

2588 set RGdownLoc = the loc of sprite the clickon 

2589 end mouseDown 
2590 

2591 on mouseUp 

2592 .global RGdownLoc 

2593 symbolClickUp (point (the mouseH, the mouseV) , RGdownLoc) 
25 94 end mouseUp 
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2595 

2596 _ . 

2597 
2598 

2599 sample data structure for a template 

2600 — the elements of this data structure are: 

2601 ♦ template sentence 

2602 ♦ indices of coded words 

2603 ♦ name of symbol cast member 

o22£ * indices of symbol cast members for default symbol palette 

260 5 

2606 ["His mother scolded him when he threw the ball through the 

2607 window.", [7,9,10,12] , "UTsymbols", 

2608 [135,124,125,126,132,127,128,4,5,133,6,7,8,134,9]] 



* 



